home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Games / Hugo / Library / verbstub.h < prev   
Text File  |  1997-04-16  |  3KB  |  157 lines
  1. !----------------------------------------------------------------------------
  2. !
  3. !            Verb Stub Routines v2.3.2 by Kent Tessman (c) 1995-1997
  4. !                       for use with Hugo Compiler v2.3
  5. !
  6. !----------------------------------------------------------------------------
  7. !
  8. ! These routines provide default responses only; in most cases this amounts
  9. ! to a more colorful variation on "Try something else."  Any more meaningful
  10. ! response must be incorporated into the before property routines of the
  11. ! objects involved.  HUGOLIB.H includes this file if the VERBSTUBS flag
  12. ! is set.
  13. !
  14. !----------------------------------------------------------------------------
  15.  
  16. #version 2.3
  17.  
  18. #ifclear _COMPILING_HUGOLIB
  19. #message warning "Verb stub routines not #included; #set VERBSTUBS instead"
  20. #endif
  21.  
  22. #ifset _COMPILING_HUGOLIB
  23.  
  24. routine DoYes
  25.     {"That was a rhetorical question.  (Although you sound rather
  26.     positive.)"}
  27.  
  28. routine DoNo
  29.     {"That was a rhetorical question.  (Although you sound rather
  30.     negative.)"}
  31.  
  32. routine DoSorry
  33.     {"Just don't let it happen again."}
  34.  
  35. routine DoUse
  36.     {"Be a little more specific about what you'd like to do with ";
  37.     print The(object); "."}
  38.  
  39. routine DoSmell
  40.     {"You don't smell anything unusual."
  41.     return true}
  42.  
  43. routine DoJump
  44.     {"You jump up and down, accomplishing little."
  45.     return true}
  46.  
  47. routine DoWaveHands
  48.     {"You wave.  Nothing happens."
  49.     return true}
  50.  
  51. routine DoWave
  52.     {"You wave ";
  53.     The(object)
  54.     ".  Nothing happens."
  55.     return true}
  56.  
  57. routine DoThrowAt
  58. {
  59.     if not xobject
  60.         {"You'll have to be a little more specific about what 
  61.         you'd like to throw ";
  62.         print The(object); " at."}
  63.     elseif xobject is not living
  64.         "What exactly are you hoping for?"
  65.     else
  66.         {"You ultimately decide that throwing ";
  67.         print The(object); " at "; The(xobject);
  68.         " isn't such a great idea."}
  69.     return true
  70. }
  71.  
  72. routine DoClimb
  73. {
  74.     if object
  75.         {"You can't climb ";
  76.         print The(object); "."}
  77.     else:  "Not here; not now."
  78.     return true
  79. }
  80.  
  81. routine DoSleep
  82.     {"Not now--there's work to be done."}
  83.  
  84. routine DoPush
  85.     {"Pushing ";
  86.     The(object)
  87.     " doesn't get you anywhere."
  88.     return true}
  89.  
  90. routine DoPull
  91.     {"Pulling ";
  92.     The(object)
  93.     " doesn't get you anywhere."
  94.     return true}
  95.  
  96. routine DoKiss
  97. {
  98.     if object is not living
  99.         "You need to get out more."
  100.     else
  101.         {CThe(object)
  102.         " doesn't seem to share your affection."
  103.         return true}
  104. }
  105.  
  106. routine DoSwim
  107.     {"Not here, you won't."}
  108.  
  109. routine DoWake
  110.     {"You're already awake, like it or not."}
  111.  
  112. routine DoWakeCharacter
  113.     {"That's probably not necessary."}
  114.  
  115. routine DoTouch
  116.     {"Fiddling with ";
  117.     The(object)
  118.     " probably isn't the best use of your time at the moment."}
  119.  
  120. routine DoTie
  121.     {"Trying to tie ";
  122.     The(object)
  123.     " doesn't get you anywhere."}
  124.  
  125. routine DoUntie
  126.     {"Trying to untie ";
  127.     The(object)
  128.     " doesn't get you anywhere."}
  129.  
  130. routine DoBurn
  131.     {"You didn't learn anything as a child, did you?  Don't play 
  132.     with fire.  And stay away from my house."}
  133.  
  134. routine DoCut
  135.     {"A destructive and somewhat less than completely useful 
  136.     course of action."}
  137.  
  138. routine DoDig
  139.     {"That won't accomplish anything."}
  140.  
  141. routine DoYell
  142.     {"You let out a hearty bellow.  Nothing else happens."
  143.     return true}
  144.  
  145. routine DoSearch
  146.     {"You don't find anything."
  147.     return true}
  148.  
  149. routine DoHelp
  150.     {"Unfortunately, 'twould seem you're on your own."}        
  151.  
  152. routine DoHelpChar
  153.     {print CThe(object); IsorAre(object, true); 
  154.     " not in need of your help at the moment."}
  155.  
  156. #endif  ! ifset _COMPILING_HUGOLIB
  157.